﻿
Public Class DateInputDialog


    Public Property PickedDate As Date = DateTime.Now.Date


    Public Sub New()

        InitializeComponent()
        mc_DatePicker.MaxDate = DateTime.Now.Date

    End Sub





    Private Sub btn_Accept_Click(sender As System.Object, e As System.EventArgs) Handles btn_Accept.Click

        PickedDate = mc_DatePicker.SelectionStart.Date


        Me.DialogResult = Windows.Forms.DialogResult.OK
        Me.Close()

    End Sub

    Private Sub btn_Cancel_Click(sender As System.Object, e As System.EventArgs) Handles btn_Cancel.Click

        Me.DialogResult = Windows.Forms.DialogResult.Cancel
        Me.Close()

    End Sub
End Class